home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 September / Macworld (1997-09).dmg / Serious Software / Cherwell Scientific Demos / DIMPLE / Install Files / IOL / Prewitt.IOL < prev    next >
Text File  |  1997-02-25  |  344b  |  15 lines

  1. !DIMPLE IOL PROGRAM
  2. images
  3.   x "Image to filter" input ;
  4.   d1 temp ;
  5.   d2 temp ;
  6.   yout "Edge detect" output ;
  7. operations
  8.   d1 = filter x ( -1, 0, 1,
  9.                      -1, 0, 1,
  10.                      -1, 0, 1 ) ;
  11.   d2 = filter x ( -1, -1, -1,
  12.                       0, 0, 0,
  13.                       1, 1, 1 )  ;
  14.  
  15.   yout = sqrt( d1*d1 + d2*d2 );